home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 2000 June / macformat-091.iso / Shareware Plus / Development / LitheFM Toolkit / Importer / Importer Data (.txt) < prev    next >
Encoding:
FileMaker Pro Database  |  2000-03-23  |  68.0 KB  |  664 lines  |  [FMP5/FMP5]
  1.  Copyright 1984-1999 FileMaker, Inc. 
  2. HBAM2016AUG95
  3. Pro 5.0
  4. alisA
  5. FMRLA
  6. HBAM3016AUG95@
  7. field
  8. counter
  9. field
  10. first
  11. first
  12. first
  13. counter
  14. loops
  15. loops
  16. counter
  17. number
  18. number
  19. number
  20. second
  21. second
  22. second
  23. first
  24. first
  25. first
  26. second
  27. second
  28. second
  29. effect
  30. effect
  31. textl
  32. effect
  33. textl
  34. effect
  35. effect
  36. textl
  37. effect
  38. textl
  39. effect
  40. textl
  41. effect
  42. textl
  43. effect
  44. textl
  45. effect
  46. effect
  47. textl
  48. effect
  49. effect
  50. pencolor
  51. penpattern
  52. style
  53. textcolor
  54. textl
  55.     3/23/2000
  56.     Helvetica
  57. Geneva
  58. Pro 5.0F!
  59. USENGLSH.MPR
  60. USER.UPR
  61. 1st Quarter
  62. 2nd Quarter
  63. 3rd Quarter
  64. 4th Quarter
  65. CONSTANT
  66. C_DEST_LIST
  67. C_IMPORT_PAIR
  68. C_PAIR_DEST
  69. C_PAIR_ORIGIN
  70. C_SORT
  71.     DATABASES
  72. DEST_FIELD
  73. DEST_ID
  74. G_CLOSE_FLAG
  75. G_CURRENT_FILE
  76. G_FILENAME
  77. G_FILE_LABEL
  78.     IMPORT_ID
  79. ORIGIN_FIELD
  80.     ORIGIN_ID
  81. PAIRING_ID
  82. TYPE_NUM
  83. constantB
  84.     Helvetica
  85. Geneva
  86. nameB
  87. typeB
  88. origin_FieldB
  89. dest_FieldB
  90. A    import_IDB
  91. A    origin_IDB
  92. dest_IDB
  93. pairing_IDB
  94.  = "Type"
  95.  = "Name"
  96.  = "Type"
  97.  = "Origin"
  98.  = "Dest"
  99. Origin
  100. Importer Data
  101. A    Layout #1
  102. A    Layout #1B
  103. constantD
  104. nameF
  105. typeH
  106. origin_FieldJ
  107. dest_FieldL    import_IDN    origin_IDP
  108. dest_IDR
  109. pairing_IDY
  110. c_Sort[
  111. type_Num]
  112. c_Sort
  113.     Helvetica
  114. Geneva
  115. File SelectB
  116. 1stantC
  117. CalculationH
  118. 1stantC
  119. CalculationH
  120. Clear Origin Info from Pairings
  121. ((("7
  122. Clear Dest Info from Pairings
  123. ((("7
  124.     Helvetica
  125. Geneva
  126. 9RPTH
  127.     MSPC
  128. FPTHA9Alexandria:Desktop Folder:File Import Helper Dev:Importer
  129. MSPCA
  130. NAMEA    
  131. Importer
  132. RPTHA
  133. Importer
  134. Alexandria
  135. Importer
  136. FMP5FMP5
  137. File Import Helper Dev
  138. 9Alexandria:Desktop Folder:File Import Helper Dev:Importer
  139. Alexandria
  140. Alexandria
  141. j zerger
  142. JRPTH
  143.     MSPC
  144. FPTHAJAlexandria:Desktop Folder:Lithe Projects:Filemaker Tools:Importer:Importer
  145. MSPCA
  146. NAMEA    
  147. Importer
  148. RPTHA
  149. Importer
  150. File Names
  151. OriginB
  152. DestinationC
  153. Pairings
  154. OriginB
  155. Origin Copy
  156. FMRLA
  157. FMRLA
  158. FMRLA
  159. c_SortB
  160.  = "Name"
  161.  = "Type"
  162.  = "Name"
  163.  = "Type"
  164.  = "Origin"
  165.  = "Dest"
  166. Origin
  167. g_FileNameB
  168. g_File_LabelB
  169. g_Close_FlagB
  170. g_Current_FileB
  171. A    databasesB
  172.  = "Text"
  173.  = "Number"
  174.  = "Date"
  175.  = "Time"
  176.  = "Container"
  177.  "Global") > 0
  178.  = "Calculation"
  179.  = "Summary"
  180. Delete Found Set
  181. Fill in Field Types
  182. Clear Origin Info from Pairings
  183. Clear Dest Info from Pairings
  184. Print Import Report
  185. Perform Import
  186. Delete Found Set
  187. Fill in Field Types
  188.  "Standard "
  189. "Stored"
  190. "Unstored"
  191. "Calc"
  192.  "Calculation")
  193.  ", ")
  194.     Standard 
  195. Stored
  196. Unstored
  197. CalculationZ
  198.  1) = "Global"
  199. Global
  200. A    Developer
  201. A    No Access
  202. Print
  203. Print
  204. ess Copy
  205. st_TotalI
  206. List_TotalI
  207. List_TotalI
  208. List_TotalI
  209. original_TextI
  210. original_TextI
  211. original_TextI
  212. original_TextI
  213. original_TextI
  214. original_TextI
  215. original_TextI
  216. original_TextI
  217. original_TextI
  218. type_NumB
  219.  = "Text"
  220.  = "Number"
  221.  = "Date"
  222.  = "Time"
  223.  = "Container"
  224.  "Global") > 0
  225.  = "Calculation"
  226.  = "Summary"
  227. Print Import Report
  228. ) = 1    
  229. Cancel
  230. Printing cancelled per user request.
  231. quest.
  232.     Helvetica
  233. Geneva
  234. Verdana
  235. Times
  236. A    DeveloperB
  237. A    No AccessB
  238. PrintB
  239. Alexandria
  240. Importer
  241. FMP5FMP5
  242. Importer
  243. JAlexandria:Desktop Folder:Lithe Projects:Filemaker Tools:Importer:Importer
  244. Alexandria
  245. Alexandria
  246. j zerger
  247. Sunday
  248. Monday
  249. Tuesday
  250.     Wednesday
  251. Thursday
  252. Friday
  253. Saturday
  254. January
  255. February
  256. March
  257. April
  258. August
  259.     September
  260. October
  261. November
  262. December
  263. 1st Quarter
  264. 2nd Quarter
  265. 3rd Quarter
  266. 4th Quarter
  267. c_Pair_OriginB
  268. c_Pair_DestB
  269. c_Import_PairB
  270.  & ":" & 
  271. c_Dest_ListB
  272.  = "Calculation"
  273. Calculation
  274. Number
  275.     Container
  276. GlobalG
  277. Calculation
  278. Summary
  279. AFAAABADABBL>>E
  280. Printed: //F
  281. Page ##H
  282. AFAAABADABBK>>I    <<
  283. ABAE>>J    <<
  284. ABAF>>K
  285. AFAAABADABAM>>L
  286. Import Notes:M
  287. Import Order ReportN
  288. LitheFM ImporterO
  289. Import Name:P
  290. AFAAABADABAL>>Q
  291. Used in Script:R
  292. AFAAABADABBB>>
  293. updated_ByC
  294. TextH
  295. !) = "them"    !W
  296. Perform Import
  297. nulltell application "FileMaker Pro"
  298.     --gather all the relevant data from the Importer Data file
  299.     set origin_File to get data cell "c_Pair_Origin" of current record of window "Importer Data"
  300.     set dest_File to get data cell "c_Pair_Dest" of current record of window "Importer Data"
  301.     set dest_Import to get data field "dest_Field" of window "Importer Data"
  302.     set origin_Import to get data field "origin_Field" of window "Importer Data"
  303.     set dest_Fields to the name of every field of la
  304.     Helvetica
  305. Geneva
  306. Verdana
  307. Times
  308. wwwwww
  309. UUUUUU
  310. DDDDDD
  311. """"""
  312. counter
  313. first
  314. first
  315. first
  316. counter
  317. loops
  318. loops
  319. counter
  320. number
  321. number
  322. number
  323. second
  324. second
  325. second
  326. ond_Text:
  327. number_A
  328. Field
  329. umber, Unindexed, 1V
  330. c_Calc_Field
  331. field_Type_NumH
  332. field_Type_NumH
  333. field_Type_NumH
  334. field_Type_NumH
  335. field_Type_NumH
  336. field_Type_NumH
  337. field_Type_NumH
  338. (LIST
  339. VDEFA(
  340. File Names
  341. first_TextE
  342. text_BI
  343. first_Text:text_B
  344. second_TextE
  345. text_AI
  346. second_Text:text_A
  347. cond_TextE
  348. second_TextI
  349. second_Text:second_Text
  350. culationH
  351. c_Calc_FieldC
  352. CalculationH
  353. c_Calc_FieldC
  354. CalculationH
  355. c_Calc_FieldC
  356. CalculationH
  357. c_Calc_FieldC
  358. CalculationH
  359. text_B
  360. c_Calc_FieldC
  361. CalculationH
  362. c_Calc_FieldC
  363. CalculationH
  364. c_Calc_FieldC
  365. CalculationH
  366. ndexed, 1H
  367. c_Calc_Field
  368. c_Calc_FieldC
  369. CalculationH
  370. c_Calc_FieldC
  371. CalculationH
  372. text_B
  373. c_Calc_FieldC
  374. CalculationH
  375. ndexed, 1H
  376. c_Calc_Field
  377. b_Field_FontE
  378. b_Field_FontI
  379. I4eld_FillPattern:b_Field_FillPattern
  380. b_Field_FontE
  381. b_Field_FontI
  382. I4rnI
  383. I4U'b_Field_FillPattern:b_Field_FillPattern
  384. b_Field_FontE
  385. b_Field_FontI
  386. yout 0 of window dest_File
  387.     set origin_Order to the name of every field of layout 0 of window dest_File
  388.     set import_Pairs to get data field "c_Import_Pair" of window "Importer Data"
  389.     --pull out fields that are not in the import
  390.     set new_Dest_Order to {}
  391.     repeat with i from 1 to (the count of items of dest_Fields)
  392.         if item i of dest_Fields is in dest_Import then
  393.             set end of new_Dest_Order to item i of dest_Fields
  394.         else
  395.             set item i of dest_Fields to ""
  396.         end if
  397.         set item i of origin
  398. _Order to ""
  399.     end repeat
  400.     --reorder the list of origin fields
  401.     repeat with i from 1 to the count of items of dest_Import
  402.         set current_dest to item i of dest_Import
  403.         set current_Origin to item i of origin_Import
  404.         repeat with i from 1 to the count of items of dest_Fields
  405.             if current_dest = item i of dest_Fields then
  406.                 set item i of origin_Order to current_Origin
  407.             end if
  408.         end repeat
  409.     end repeat
  410.     --get records from the origin file and create them in the destination file
  411.     copy ori
  412. .FMPRGOTOnull
  413. OjvE`
  414. /F[OY
  415.  OjvE`
  416. ,h[OY
  417. ndria
  418. Alexandria
  419. j zerger
  420. .aevtoappnull
  421. .aevtoappnull
  422. .coregetd****
  423. origin_file
  424. origin_File
  425.     dest_file
  426.     dest_File
  427. dest_import
  428. dest_Import
  429. origin_import
  430. origin_Import
  431. dest_fields
  432. dest_Fields
  433. origin_order
  434. origin_Order
  435. import_pairs
  436. import_Pairs
  437. new_dest_order
  438. new_Dest_Order
  439. .corecnte****
  440. current_dest
  441. current_origin
  442. current_Origin
  443. origin_record
  444. origin_Record
  445. multiple_records
  446. multiple_Records
  447. .corecrel****
  448. in_record
  449. origin_Record
  450. .FMPRGOTOnull
  451. origin_file
  452. origin_File
  453. .ascrerr ****
  454. .corecnte****
  455. origin_file
  456. origin_File
  457. FileMaker Pro
  458. tfilerdrdss;F
  459. Alexandria
  460. FileMaker Pro
  461. APPLFMP5
  462. FileMaker Pro 5 Folder
  463. <Alexandria:Applications:FileMaker Pro 5 Folder:FileMaker Pro
  464. Alexa
  465. .coregetd****
  466. origin_order
  467. origin_Order
  468. origin_file
  469. origin_File
  470. origin_record
  471. origin_Record
  472. .corecnte****
  473. origin_order
  474. origin_Order
  475. .corecrel****
  476.     dest_file
  477.     dest_File
  478. c_Pair_OriginD
  479. c_Pair_DestG
  480. origin_FieldI
  481. dest_FieldK
  482. pairing_IDN
  483. c_Import_Pair
  484. 1B    first_NumC
  485. NumberG
  486. I7V    first_Num
  487. second_NumC
  488. NumberG
  489. second_Num
  490. loops_CounterC
  491. Global, NumberG
  492. loops_Counter
  493. first_TextC
  494. TextG
  495. first_Text
  496. second_TextC
  497. TextG
  498. second_Text
  499. number_AC
  500. NumberH
  501. number_A
  502. number_BC
  503. NumberH
  504. number_B
  505. loop_CounterC
  506. Global, NumberH
  507. loop_Counter
  508. text_AC
  509. TextH
  510. text_A
  511. text_BC
  512. TextH
  513. text_B
  514. c_Calc_FieldC
  515. CalculationH
  516. 1D    first_NumE
  517. number_BI
  518. first_Num:number_B
  519. second_NumE
  520. number_AI
  521. second_Num:number_A
  522. .corecnte****
  523. dest_fields
  524. dest_Fields
  525. .corecnte****
  526. dest_import
  527. dest_Import
  528. Hget records from the origin file and create them i
  529. n the destination file
  530. origin_order
  531. origin_Order
  532. origin_record
  533. origin_Record
  534. multiple_records
  535. multiple_Records
  536. origin_order
  537. origin_Order
  538. themC
  539. register
  540.     Helvetica
  541. Geneva
  542. Verdana
  543. Times
  544. dest_Fields
  545. !reorder the list of origin fields
  546. dest_import
  547. dest_Import
  548. current_dest
  549. origin_import
  550. gin_Import
  551. current_origin
  552. current_Origin
  553. current_dest
  554. dest_fields
  555. dest_Fields
  556. current_origin
  557. current_Origin
  558. origin_order
  559. origin_Order
  560. new_Dest_Order
  561. dest_import
  562. dest_Import
  563. dest_fields
  564. dest_Fields
  565. dest_fields
  566. dest_Fields
  567. new_dest_order
  568. new_Dest_Order
  569. dest_fields
  570. dest_Fields
  571. origin_order
  572. origin_Order
  573. .corecnte****
  574. dest_field
  575.     dest_file
  576.     dest_File
  577. dest_fields
  578. dest_Fields
  579.     dest_file
  580.     dest_File
  581. origin_order
  582. origin_Order
  583. .coregetd****
  584. c_Import_Pair
  585. Importer Data
  586. import_pairs
  587. import_Pairs
  588. *pull out fields that are not in the import
  589. new_dest_or
  590. Importer Data
  591. origin_file
  592. origin_File
  593. .coregetd****
  594. c_Pair_Dest
  595. Importer Data
  596.     dest_file
  597.     dest_File
  598. .coregetd****
  599. dest_Field
  600. Importer Data
  601. dest_import
  602. dest_Import
  603. .coregetd****
  604. origin_Field
  605. Importer Data
  606. origin_import
  607. origin_Import
  608. gin_Order to origin_Record
  609.     set multiple_Records to {}
  610.     repeat (count of records of window origin_File) times
  611.         repeat with i from 1 to the count of items of origin_Order
  612.             if item i of origin_Order is not equal to "" then
  613.                 set item i of origin_Record to get data cell (item i of origin_Order) of current record of window origin_File
  614.             end if
  615.         end repeat
  616.         create new record at layout 0 of database dest_File with data origin_Record
  617.         try
  618.             go to record after current record of window or
  619. igin_File
  620.         end try
  621.     end repeat
  622. end tellFasdUAS 1.101.10
  623. 8gather all the relevant data from the Importer Data file
  624. .coregetd****
  625. c_Pair_Origin
  626. 1B    first_NumC
  627. NumberG
  628. I7V    first_Num
  629. second_NumC
  630. NumberG
  631. second_Num
  632. loops_CounterC
  633. Global, NumberG
  634. loops_Counter
  635. first_TextC
  636. TextG
  637. first_Text
  638. second_TextC
  639. TextG
  640. second_Text
  641. number_AC
  642. NumberH
  643. number_A
  644. number_BC
  645. NumberH
  646. number_B
  647. loop_CounterC
  648. Global, NumberH
  649. loop_Counter
  650. text_AC
  651. TextH
  652. text_A
  653. text_BC
  654. TextH
  655. text_B
  656. c_Calc_FieldC
  657. CalculationH
  658. 1D    first_NumE
  659. number_BI
  660. first_Num:number_B
  661. second_NumE
  662. number_AI
  663. second_Num:number_A
  664.